﻿Imports System.Text.RegularExpressions
''' <summary>
''' Clase Validaciones que contiene los métodos para validar
''' </summary>
''' <author>Juan David Cabezuelo, Arturo Sirvent, Fermín Martínez, Eugenio Cañete y Pablo Vicedo</author>
Module Validaciones
    ''' <summary>
    ''' Función que verifica la longitud de una cadena y que esté o no requerida
    ''' </summary>
    ''' <param name="cadena"></param>
    ''' <param name="longitud"></param>
    ''' <param name="requerido"></param>
    ''' <returns>True si se cumple la condición</returns>
    ''' <remarks></remarks>
    Public Function ValidarCadena(ByVal cadena As String, ByVal longitud As Integer, ByVal requerido As Boolean) As Boolean
        If requerido Then
            If cadena.Length > longitud Or cadena = "" Then
                Return False
            Else
                Return True
            End If
        Else
            If cadena.Length > longitud Then
                Return False
            Else
                Return True
            End If
        End If
    End Function
End Module
